Dim sUserName
Dim sSN
sUserName= "Testor1"
'======================================================
  Set OBJ = CreateObject("ActivCard.Authentication")

  msgbox OBJ.UserGetTokenSN( sUserName, sSN )
  msgbox sSN

  Set OBJ = Nothing